00100	M23←MAT((-1/2,1,1,0,0,0),(1/2,0,1,0,0,0),(1/4,1/2,-1/2,0,0,0),
00200	(0,0,0,0,1,1),(0,0,0,1/2,1/2,-1/2),(0,0,0,1/2,-1/2,1/2));
00400	M15←MAT((A11,A12,0,0,A15,0),(A21,A22,0,0,A25,0),
00500	(0,0,A33,A34,0,A36),(0,0,A43,A44,0,A46),
00600	(A51,A52,0,0,A55,0),(0,0,A63,A64,0,A66));
00800	LET A66=-A11-A22-A33-A44-A55;
00900	
01000	LET A55=-A11-A44;
01100	
01200	LET A44=A22-1;
01300	
01400	LET A63=-2*A51;
01500	
01600	LET A36=-1/2*A15+A25-2*A34;
01700	
01800	LET A33=A11+2*A21;